INSERT INTO Стипендія (НомерЗалікової, ДатаПочатку, ДатаЗавершення, РозмірСтипендії) SELECT DISTINCT Студент .НомерЗалікової, #07/01/2004#, #06/30/2004#, 300 FROM ((Студент INNER JOIN Екзамен ON Студент.НомерЗалікової = Екзамен.НомерЗалікової) INNER JOIN Викладач ON Екзамен.НомерПосвідчення = Викладач.НомерПосвідчення) INNER JOIN Предмет ON Екзамен.НомерПредмету = Предмет. НомерПредмету WHERE Студент.Група = «ПМ-21» AND Екзамен.ДатаЕкзамену >= #06/01/2004# AND Екзамен.ДатаЕкзамену <= #06/30/2004# AND Предмет.НазваПредмету = «Математичний аналіз» AND Викладач.ПосадаВикладача = «професор» AND Викладач.ПрізвищеВикладача = «Іваненко» AND Екзамен.ОцінкаЗПредмету > 95; UPDATE Студент SET Рейтинг = Рейтинг/2 WHERE Група LIKE “*-5#” AND НомерЗалікової IN (SELECT DISTINCT НомерЗалікової FROM Екзамен WHERE ОцінкаЗПредмету >=0 AND ОцінкаЗПредмету <50); DELETE FROM Екзамен WHERE НомерЗалікової IN ( SELECT Екзамен.НомерЗалікової FROM Екзамен INNER JOIN ( SELECT НомерЗалікової, COUNT (НомерЗалікової) AS CNT FROM Екзамен WHERE ОцінкаЗПредмету >=0 AND ОцінкаЗПредмету <50 GROUP BY НомерЗалікової ) AS s ON Екзамен.НомерЗалікової = s. НомерЗалікової WHERE s.CNT>3 ); A Dim db As Database Dim tdf As TableDef Dim fld As FieldDef Set db = CurrentDb Set tdf = db.CreateTableDef(“Екзамен”) Set fld = tdf.CreateField(“НомерЗалікової”) fld.Type = Integer fld.Required = True tdf.Fields.Append fld fld = Nothing Set fld = tdf.CreateField(“НомерПредмету”) fld.Type = Integer fld.Required = True tdf.Fields.Append fld fld = Nothing Set fld = tdf.CreateField(“ДатаЕкзамену”) fld.Type = DateTime fld.Required = True tdf.Fields.Append fld fld = Nothing Set fld = tdf.CreateField(“НомерПосвідчення”) fld.Type = Integer fld.Required = True tdf.Fields.Append fld fld = Nothing Set fld = tdf.CreateField(“ОцінкаЗПредмету”) fld.Type = Integer fld.Required = True fld.ValidationRule = “>= 0 And <= 50” tdf.Fields.Append fld fld = Nothing Set idx = tdf.CreateIndex(“PK”) Set fld = idx.CreateField(“НомерЗалікової”) idx.Fields.Append fld fld = Nothing Set fld = idx.CreateField(“НомерПредмету”) idx.Fields.Append fld fld = Nothing Set fld = idx.CreateField(“ДатаЕкзамену”) idx.Fields.Append fld fld = Nothing idx.Primary = True tdf.Indexes.Append idx db.TableDefs.Append tdf Set rel = db.CreateRelation(“FK_Stud_Exam”) rel.Table = “Студент” rel.ForeignTable = “Екзамен” Set fld = rel.CreateField(“НомерЗалікової”) rel.ForeignName = “НомерЗалікової” rel.Fields.Append fld db.Relations.Append rel Public Function successful_count (GroupName) successful_count = 0 Dim db As Database Set db = CurrentDb Set rs = db.OpenRecordset(“SELECT Студент.НомерЗалікової FROM (Студент INNER JOIN ( SELECT НомерЗаліковки, MAX(Здачі1) AS Здачі FROM (SELECT НомерЗаліковки, НомерПредмету, COUNT(НомерЗаліковки) AS Здачі1 FROM Екзамен GROUP BY НомерЗаліковки, НомерПредмету ) GROUP BY НомерЗаліковки ) AS s ON Студент.НомерЗалікової = s.НомерЗалікової) INNER JOIN ( SELECT НомерЗаліковки, SUM(ОцінкаЗПредмету) AS Сума_Оцінок, COUNT(ОцінкаЗПредмету) AS Кількість_Предметів, MIN(ОцінкаЗПредмету) AS min_val FROM Екзамен GROUP BY НомерЗаліковки ) AS ss ON Студент.НомерЗалікової = ss.НомерЗалікової WHERE s.Здачі = 1 AND (ss.Сума_Оцінок/ ss.Кількість_Предметів)>=88 AND min_val>70 AND ss.Кількість_Предметів > 0 ”) Successful_count = rs.RecordCount If (Successful_count>0) Then rs.MoveFirst For i = 0 To (rs.RecordCount -1) Nu = rs(“НомерЗалікової”) Set rs_1 = db.OpenRecordset(“SELECT ОцінкаЗПредмету FROM Екзамен WHERE НомерЗалікової = “ & Nu & ” ORDER BY ДатаЕкзамену”) rs_1.MoveFirst nw = rs_1(“ОцінкаЗПредмету”) For j = 0 To rs_1.RecordCount -2 bf = nw rs_1.MoveNext nw = rs_1(“ОцінкаЗПредмету”) If (nw<bf) Then Successful_count = Successful_count – 1 Exit For End If Next If (i<( rs.RecordCount -1)) Then rs.MoveNext Next End If End Function